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SUBROUTINE ML11 (Lun) 

Version: *v04-000' 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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Author: Sharon Reynolds Creation date: 12-Dec-80 
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Functional description: 
* module builds the error log report for the ML11 solid-state 
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Modified by: 

¥%3-003 SAR0227 eynolds, 28-Mar-1984 
Changed the call> — deai UIC to ORBSL_OWNER. 

VO3-002 SARO114 haron A. Reynolds, 23-Jun-1983 


Changed the carriage control in the ‘format’ statements 
for use with ERF. 
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3 v03-001 SAR0048 Sharon A. Reynolds, 13-Jun-1983 
Removed brif/cryptic support. 

? v02-003 BP0003 Brian Porter 18-NOV-1981 

§ Added new mba code. Minor edit. 

4 v02-002 BP0002 Brian Porter, 05-NOv-1981 

5 Added ‘device sekent ion support. 

$ v02-001 BP0001 Brian Porter, 01-JUL-1981 
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Added call to DHEAD and LOGGER. 


Include ‘SRC$:MSGHDR.FOR /NOLIST’ 
Include "SRC$:DEVERR.FOR /NOLIST' 


Byte 


Parameter 
Parameter 


Integer*4 
Integer*4 


Integer*4 
integert4 
integer*4 


Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integer*4 
Integere4 


logical*! 


Character*7 
Character*! 
Charactere! 


Charactere 
Charactere 


‘un 


timeout = 9 
xfer_cmd = 


adapter_registers(7) 
selected_map_register 


irp_fla 
edd ° 


diagnostic_mode 
mics) _3(9;0) 
alcsi_2( att 
mlds_1(6:8) 
mlds_2¢ 9:19} 
mlds_5(14:15) 


dD 11 


16-Sep-1 
~Sep-1 


Added DIAGNOSTIC_MODE. 
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VAX=11 FORTRAN 


DISKSVMSMASTER: 


¥e.8-36 
ERF .SRCJML11.FOR;1 
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Character*] alds_pe (9:1) 
Character* mler_1(0:3) 
Character* mler_2(5:6) 
Character* mler_3(9:; 8 
oaroc ter⸗ mler_4(13:15) 
Character* 336 
Character* mlar_2(7:7) 
Charactere er_rate(0:3) 
Character*l6 aray- “typ(0:1) 


Cc 
C Make the c contents of the register save area in the error log 
3 bufter availabie to this module 
EQUIVALENCE (adapter_ gisters. enbst dy regsav(0)) 
Equivalence Cirp flag eles REGSAV(73) 
Equivalence (mics1, ERBSL Dv “REGSAVCB)) 
Equivalence (mids ,EMBSL_BV_REGSAV(9) ) 
Equivalence (mler EMBSLD V=REGSA —3003 
Equivalence (mlar ,EMBSL_DV_REGSAV(11)) 
Equivalence Te He tee A SE TE 
Equivalence (mida,EMBSL_DV_REGSAV(15)) 
Equivalence hy pt it te Ma Se 
Equivalence (misn, — 
Equivalence ered Enea py -peceav es ») 
Equivalence (mle2,EMBSL_DV_REGSAV(18)) 
Equivalence (mlee, EMBSL_DV_ Pees avisas) 
Equivalence (mlel ,EMBSL_DV_REGSAV (22) ) 
Cc 
3 Define text for bits in the ML11 control/status register 
Data mics1_1(0) /*GO BIT#'/ 
Data mlcs1_2(11) /"DRIVE AVAILABLE®'/ 
C 
3 Define text for bits in the ML11 drive status register 


Data mtds_1 (6) LUME VALID*'/ 
Data alds 3 ive READY*#'/ 


/ 
/ 
Data mlds_1 / VE PRESENT*'/ 
Data mids_2(10) /*LAST BLOCK TRANSFERRED®'/ 
* 
4 
/ 
/ 


Data aids. 18} OR*'/ 
Data mids_5(15) ENTION ACTIVE®'/ 


Data mlds_mol (0) IUM OFF LINE®'/ 
Data mlds_mol(1) IUM ON LINE®’/ 


oo —2z 


Define text for bits in the ML11 error register 


ig-Fep-1964 90:08:75 WEEKSUMSRASTEN: TERE scecamit.ror;1 "2° ° 


C 
Data mler_1(0) /*ILLEGAL FUNCTION®'/ 
Data mler_1(1) itt cat AEGISTER® ‘/ 
Data mler_1(2) /*REGISTER or REFUSED®"/ 
Date aler_1(35) /*CONTROL PARITY®’ 
Data 23368 /*DATA pAIIYy- 
Data mler_2(6) /*ECC HARD ERROR®'/ 
Data ater 3(9) /*ADDRESS OVERFLOW ERROR*'/ 
Data mler_3(10) /"INVALID ADDRESS ERROR®*'/ 
Data mler_4(13) /*OPERATION INCOMPLETE®'/ 
Data mler_4(14) /*DRIVE UNSAFE®' / 
Data mler_4(15) /"DATA CHECK®'/ 
Cc 
3 Define text for bits in the ML11 maintenance register 
Data mlar_1(1) /°ECC DISABLED*'/ 
Data mlmr_1(2) /*DATA CHECK ENABLE®*'/ 
Data mlar_2(7) /*REFRESH RATE DECREASED BY 50%*'/ 
Data xfer_rate(0) 4.9°8 MBYTE/SECOND*'/ 
Data xfer_rate(1) /* Moae 
Data ier i 38 MBYTE/SE "/ 
Date xfer_rate(3) /*.25 RBYTEDSECOND®*/ 
Data aray. typ to) /°16K CHIP ARRAYS*'/ 
Data aray_typ(1) /°64K CHIP ARRAYS*'/ 
C 
3 Construct the report header 
Call FRCTOF (lun) 
call dhead! (lun, "MASSBUS*) 
C 
Cc Establish if it was a data transfer type command and get the 
3 massbus registers if so 


diagnostic_mode = .false. 
if (LibSextzv(0,1,mlmr) .eq. 1) diagnostic_mode = .true. 
if (LibSextzv(3,1,mlmr) .eq. 1) diagnostic_mode = .true. 
if (LibSextzv(5,2,mlmr) .ne. 0) diagnostic_mode = .true. 
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11 
1f-Fep-1986 99:09:54 
Drv func = LIBSEXTZV (1,5,mics1) 


f ¢ 
{ EMBSW_DV_BCNT .ne. 0 
1 .and 
: drv_func -ge. xfer_cmd 
1 
1 


emb whd_entry ne. 98 
) then 


qos ade control registers (Lun,5,adapter_registers, 
selected_map_register) 


gett — 22 ister (luy,selected_map_register, 
adapter_registers(6)) 


if (selected_map_register .gt. 0) then 


all mba mapping.re ister (lun,(selected_map_register - 1), 
pareocer regis ers(7)) 


Endif 


Decode and output the bits in the control and status register 


Call LINCHK (lun,2) 
Write (lun,20) mics 
Format (/° *,1T8,‘MLCS1',124,78.8) 


if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun,mics1,mlcs1,0) 
Call OUTPUT (Lun,mics1,mics1_1,0,0,0,'0") 


Call LINCHK (lun,1) 

If (drv rane eq. 0) then 
Write (Tun, 2) 

Format (° °,140,*NO-OPERATION') 


Else if (dry_func .eq. 4) then 
Write (Lun,28) 
Format (° °,140,"DRIVE CLEAR’) 


Else if — func .eq. 8) then 
Write (Lun, 8) 
Format (* °,140,"READ IN PRESET") 


Else if sory func .eq. 12) then 
Write (Lun, 8) 
Format ( 140, °SEARCH’) 


Else if (dry func .eq. 20) then 
Write (Lun, $0) . 


° 5 
CIML11.FOR:1 8” 


wef) 
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ig-ep-1984 92:88:73 — ESkSvmshasten: Fear sehcamit1.ror:1 "2%" ° 


te 30 Format (* *,140,"WRITE CHECK") 
Else | (dry func .eq. 24) then 

4 te 49) 

48 32 Format (* “fo, "WRITE DATA‘) 


AS RD if (dr fune eq. 28) then 


* 


Fornet "140, "READ DATA") 

Endif 

Catt OUTPUT (Lun,mics1,mics1_2,11,11,11,'0") 

endif 

C 3 

* Decode and output the bits in the drive status register 09 
661 
' 9 Call LINCHK (Llun,1) 00 
04¢ ur te (Lun, 40) lds 002 
€ 40 Format (' *,18,'MLDS',124,28.8) 8 
56 if (.not. diagnostic_mode) then 8 
és call mba_status_register16_31 (lun,mics1,mlds,1) 8 
* Call OUTPUT (Lun,mids,mids_1,6,6,8,'0") 8 
— Call OUTPUT (Lun,mids,mids_2,10,10,10,'0") 8 
0474 Field = LIBSEXTZV (12,1,mlds) 003' 
0475 8 
57 Urite tUene4S)-m(ds_ mol (field) 3 
f rite mics mo 
‘ 8 45 1 er To tAceOMPRESSC (mids_mol (field))>) 003 
U “af Call OUTPUT (Lun,mids ,mlds_3,14,14,15,'0") ; 
‘ endif 
04 & 3 
045 C ( 
‘ + 3 Decode and output the bits in the error register 
4 F { 
48 Call LINCHK (4un 1 
0488 Write ( Lun, 50 ab ‘ 
t 8 50 Format (' 18, TMLER’ ,126,28.8) ( 
4 if (.not. diagnostic_mode) then 
' 3 call mba_status_register16_31 (lun,mids,mler,1) 3! 
0495 Call OUTPUT (Lun.mler,mler_1,0,0,3,'0") 3 
‘ 39 Call OUTPUT (Lun,mler,mler_2,5,5,6,'0") 3 
39 Call OUTPUT (Lun,mler,mler_3,9,9,10,'0") 5 
0500 5 
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Catt OUTPUT (Lun ,mler,mler_4,13,13,15,'0") 
endif 


Decode and output the bits in the maintenance register 


Call LyWcHK lun 2 
pr bh AS ithe 
8, TMLAR' , T24,78.8) 
if (.not. diagnostic_mode) then 
call mba_status_register!6_31 (lun,mler,mlmr,1) 
call output (lun,mlar,mlar_1,1,1,2,'0°) 
Call OUTPUT (Lun,mlar,mlar_2,7,7,7,'°0") 
Field = LIBSEXTZV (8,2,mlmr) 


Call * 
Wr 2 —VRñ 73)" afer rate( field) 
 140,'XFER RAT 


Forma E 
1 Ore tGMPRESSe (xfer_ Rear eietas)>) 


T = LIBSEXTZV ¢ mlar) 
Cards = LIBSEXTZV gman, 


Call LINCHK (Lun,2) 


i 
ts Ry 00 oO —— — ——— 


Write Cyn 83) cards 
Format 7" T40, — (cards)>, 
*8 . ARRAY MODUL 

else 


Call LINCHK (Lun,1) 


Write (lun, 
Format (* ',140,"DIAGNOSTIC MODE") 
Endif 


Decode and output the bits in the attention summary register 


urite gina ( yn. 1) 

te ( hyn, 19 ) alas 

Format ( - MLAS’ ,124,78.8) 

if (.not. diagnostic_mode) then 

call mba_status_register16_31 (lun,mlar,mlas,1) 


Do 106, I=0,7 


VAX-11 FORTRAN 
DISKSVMSMASTER: 
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mL11 Tet Sep-1 :09:546 VAX-11 FORT 
Been Fhe Pei88iis || Nae edimsoas shane 
If (JIAND(mlas,2**1) .ne. 0) then 
Catt L NCH 133" 1) 
105 Forage te 103) | ATTENTION UNIT ',11,".°) 


Ys 4-56 
ER: CERF .SRCJML11.FOR;1 


106 —— 
endif 


Oon 


Decode and output the bits in the desired address register 


Call LINCHK { wee 
Write hyn, té 
120 Format ( 43. T24,28.8) 
if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun,mlas,mlda,1) 


Field = LIBSEXTZV (0,16,mida) 


4 

Call LINCKK (Lun 4 

Write (lun, 130) "flets 4, 

130 Format (' "SECTOR = *, I<COMPRESS4 (field)>,'.") 4 


QO 


Decode and output the bits in the drive type register 


Call LINCHK Clun, 


Write (lun,140) mldt 
140 Format eee aD MOF’, 126,28.8) 


if (.not. diagnostic_mode) then 


= _ 


— 
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call mba_status_register16_31 (lun,mida,mldt,1) ; 
Field = LIBSEXTZV (0,9, midt) — 
If (field .eq. 110) then $ 
Call “— Hy⸗ FRL — 
Write G. 

150 corset (* *,140,"DRIVE TYPE = ML11") 
endif 16 

¢ 3 

Cc Decode and output bits in the serial number register 17 


K 11 
16-Sep-1 2:09:54 VAX-11 FORTRAN V3.4-56 
eH aet 1 90:88:39 DISKSVMSMASTER: CERF ,SRCIML11.FOR:1 


g 


— 


Catt LINCHK (lun,1) 
Write Lun, 1 ) alsn 

Format (° °,16,°MLSN',124,78.8) 
if (.not. diagnostic_mode) then 


call mba_status_register16_31 (Lun,midt,misn,1) 
endif 


YNYYYNN 


Cococece~y 


Decode and output the bits in the ECC CRC word register 1 


Call LINCHK { un,1) 
Write (Lun, 1 ) alel 
Format ( 18, "MLE1’,124,78.8) 
if (.not. diagnostic_mode) then 


call mba_status_register16_31 (lun,misn,miel,1) 
endif 


Decode and output the bits in the ECC CRC word register 2 


— — — — — — — — — — — — — — — — — — — — a ts I — —— 


200 


Call LINCHK (Lun,1) 
Write (Lun, 18 ) ale 
Format (° *,T8,"MLE2',124,28.8) 
if (.not. diagnostic_mode) then 


call mba_status_register16_31 (lun,mlel,mle2,1) 
endif 


— CLO OO OOOO OMMmaa 
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Decode and output bits in the ECC error register 


Call LINCHK (Lun,1) 
Write (Lun, ) alee 
Format (* *,18,"MLEE*,124,78.8) 


if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun,mle2,mlee,1) 


Crc_err = LIB atey (13,1,mlee) 
Sngl_err = 18 xTtzv (14, f mlee) 
Unc_err = LIB xTZy (15, {4,mlee) 

V (6,6 alee) 
EXTZ2V (0,6,mlee) 


SERRRERERER: 


Do 194, 1=0,5 
If (JIAND(err_func,2**1) .ne. 0) then 


SOSOOSOSOSOOSSOOOOSOSSOOOSSOOOSooooo 


~~ 


— 1f-ep-1964 00:09:54 
Wed = [+1 
Endif 

194 Continue 


If (crclerr .eq. 1) then 
urite « LINC f yn. 2) 
195 Ornst ¢* "8 420, "CRC ERROR") 
Write (lun,196) wrd chan 
196 Format (e's 70) 8. WORD") 11 BIT ', 
1 TeCOMPRESS4 (enon) >, la "Ere ROR") 
Else if (sngl_err .eq. 1) then 
all LINCHK § we 2) 
rite (Lun, 19 
197 td ( 940. "SINGLE ERROR‘) 
Write (hyn, 198) werd chan 
198 Format ( 40,°WORD ‘,11, 
1 TeCOMPRESSe (¢han)>,° IN * ERRDA 
Else if (unclerr .eq. 1) then 
Call LINCHK (lun,1) 
Write (lun yn, 
199 Format (° *,140,"UNCORRECTABLE ERROR’) 


Endif 
endif 
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Decode and output the bits in the ECC error location register 


waoSES 
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Call LINCHK (lun,1) 


Write (lun,2 
200 Fonnee Cent ee) met 124, 78.8) 


if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun,mlee,mlel,1) 
endif 


— 
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Get software information and return to ERRPRT 


call Linchk (lun,1) 
write(lun,205) 


SNS NSS 


oe es 
ono Wwnr— 
AO 


a1 
"Pr ee=198e 2:00:19 | DISKSVNSRASTER:LERFsshcomL11.F0R;1 eee 


205 format(' *,:) 


if ¢ 
emb$Sw_hd_entry .ne. 98 


1 irp flag .ne. 0 
1) then 


5 
— call ucbSb_ertcnt (lun,emb$b_dv_ertcnt) 
7 call ucb$Sb_ertmax (Lun,emb$b_dv_ertmax) 
* endif 
ee call orb$l_owner (lun,emb$i_dv_ownuic) 
re call ucb$l_char (Lun,emb$l_dv_char) 
ms call ucb$w_sts (lun,emb$w_dv_sts) s 
ve call ucb$l_opcnt (lun,emb$l_dv_opcnt) 
f ? call ucb$w_errcnt (lun, ,emb$w_dv_errcnt) 30 
; § P esate hd_entry .ne. 98 i 
754 1 .and.~ ~ ares 1 
5 | irp. flag -ne. 0 1 
— call Linchk (lun,1) : 
re write(lun,205) iF 
16 call ml11_qio (lun,emb$w_dv_func) 1 
ree call irp$Sw_bcnt (lun,emb$w_dv_bcnt) 
8 call irp$w_boff (Lun, emb$w_dv_boff) 
ih call irp$l_pid (lun,emb$i_av_raqpid) 
9 col} irpte_ test (Lun,emb$l_dv_iosb1) 


Return 
End 
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agisz eie Peat eB cama1.ror:1 eee 
ARRAYS 
Address Type Name Bytes Dimensions 
1*4 ADAPTER_REGISTERS (7) 
CHAR ARAY_TYP ( 1) 
L*1 5 (0:511) 
I*4 EMBSL_DV_REGSAV 420 (0:104) 
I*4 EMBSOQ_HD_TIME (2) 
CHAR MLCS1_1 (0:0) 
CHAR MLCS1_2 1 (11:11) 
CHAR MLDS_ 4 69283 
CHAR MLDS_ ( 9:19 
CHAR MLDOS_ 4 (14:15) 
CHAR MLDS_MOL 2 ¢ 9 
HAR MLER_1 38 (0:3) 
HAR mLER¢ (5:6) 
CHAR MLER_ 29 (9:10) 
CHAR MLER_4 (13:15) 
CHAR MLAR_1 36 te) 
CHAR MLMR_2 0 (7:7) 
CHAR XFER_RATE 68 (0:3) 
LABELS 
Address Label Address’ Label Address’ Label Address Label Address Label Address Label 
1999900 g0: 999008 ge: 13333 ag: 33333f 333353 3. 3330 
1-00000160 5: 1-0000011D 75° 1=900009 59 80° 1-00000143 85° 1=0009 133 100° 1-00000188 105° 
ee 1-000001A4 130, 66 139° 1-000001CF 140° 1-Q00001E0 150° 1-000001F9 160° 
8333 170° 1-00 sie 0° 8388 C 190° “te 194 8686 D 195° 1-0000024E 196° 
1-00000276 197° 1-0000028A 198° 1-000002B2 199° 1-000002CD 200° 1-000002DE 205° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4 I*4 COMPRESSC DHEAD1 
FRCTOF IRP$L_PID IRP$Q_I0SB 
IRPSW_BCNT IRP$W_BOFF I*4 LIBSERTZV 
LINCHR MBA_CONTROL_REGISTERS MBA_MAPPING_REGISTER 
MBA_STATUS_REGISTER16_31 AL 10 ORBSL_OWNER 
OUTPUT UCBSB_ERTCNT UCBSB_ERTMAX 
UCBSL_CHAR UCBSL_OPCNT UCBSW_ERRCNT 
UCBSW_STS 
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3.4-56 Pa 14 
DISKSVMSMASTER: CERF SRCIML11.FOR;1 a 


Subroutine ML11_Q10 (Lun,emb$w_dv_func) 


g 


include ‘src$:qiocommon.for /nolist' 


byte lun 
integer*2 emb$w_dv_ func 
integer*4 qiocode(0:1,0:63) 


if (qiocode(0,0) .eq. 0) then 
qiocode(1,00) = Zloc(io$_nop) 


qiocode(1,01) = Zloc(io$_unload) 
5 qiocode(1,02) = Zloc(io$_seek) 
a qiocode(1,03) = Zloc(io$_recal) 
89 qiocode(1,04) = Zloc(io$_drvcir) 
4 qiocode(1,05) = Zloc(io$_release) 
38 qiocode(1,06) = Zloc(io$_offset) 
95 qiocode(1,07) = Zloc(io$_retcenter) 
37 giocode(1,08) = Zloc(io$_packack) 
4) qiocode(1,09) = Zloc(io$_search) 
1 qiocode(1,10) = Zloc(io$_writecheck) 
308 qiocode(1,11) = Zloc(io$_writepblk) 
is qiocode(1,12) = Zloc(io$_readpblk) 
qiocode(1,13) = Zloc(io$_writehead) 
: qiocode(1,14) = %!oc(io$_readhead) 
v qiocode(1,24) = Zloc(io$_writecheckh) 
18 qiocode(1,25) = Zloc(io$_readpreset) 
i qiocode(1,26) = Zloc(io$_setchar) 
13 qiocode(1,27) = Zloc(io$_sensechar) 
19 qiocode(1,32) = Zloc(io$_writelblk) 
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DISKSVMSMASTER: °°" 


oo 


if Ben-1964 00:08: 


qiocode(1,33) = Zloc(io$_readlbik) 
qiocode(1,35) = Zloc(io$_setmode) 
qiocode(1,39) = Zloc(io$_sensemode) 
qiocode(1,48) = Zloc(io$_writevblk) 
qiocode(1,49) = Zloc(io$_readvbLlk) 
qiocode(1,50) = Zloc(io$_access) 
qiocode(1,51) = Zloc(io$_create) 
qiocode(1,52) = Zloc(io$_deaccess) 
qiocode(1,53) = Zloc(io$_delete) 
gqiocode(1,54) = £loc(io$_modify) 
qiocode(1,56) = Zloc(io$_acpcontrol) 
qiocode(1,57) = Zloc(io$_mount) 
do 10,1 = 0,63 
qiocode(0,i) = 33 
if (qiocode(1,i) .eq. 0) then 
qiocode(1,i) = Zloc(qio_string) 
endif 

10 continue 
endif 


call irp$w_func (lun,emb$w_dv_ func, 
1 qiocode(0, LibSextzv(0,6,emb$w_dv_func))) 


return 


end 


ML11_Q10 


PROGRAM SECTIONS 


; SLOCAL 
Q10COMMON 


Totel Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


388 
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ze 


Name 
ML11_Q10 


; 


‘oo 4 
= 
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assesses 


— 
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Bytes 


i 


2112 
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Attributes 

PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL HR NOEXE RD WRT LONG 


Address Type Name 
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VAX=11 FORTRAN 
DISKSVMSMASTER: 


Pa 1 
camit.ror:1 *2%* *6 


ifeBeo-1966 90:09:56 vateyt om 


RAN y3.4-5 
Ten: teat secomut1.ror:1 2 


1 CHAR 10$_WRITETRACKD - HAR 10$_WRITEVBLK 
—— ERS Guns fob vat 
AP @t*l LUN - Al CHAR QIO_STRING 
ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 I*4 QI0CODE 512 (0:1, 0:63) 
LABELS 
Address Label 
et 10 


FUNCTIONS #ND SUBROUTINES REFERENCED 
Type Name Type Name 
IRPSW_FUNC I*4 LIBSEXTZV 


COMMAND QUALIFIERS 
FORTRAN /LIS=L1S$:ML11/0BJ=0BJ$:ML11 MSRCS$:ML11 
/CHECK= (NOBOUNDS , OVERF LOW, NOUNDERF LOW) 

BUG g BACK) 
TANDARD= (NOS YNTAX,NOS 


1S OURCE_FORM) 
/SHOW=(NOPREPROCESSOR .NOINCL ODE MAP) 
/F77 /NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 19. 7 seconds 
Elapsed Time: 7 seconds 
Page Faults: 69 

Dynamic Memory: 40 pages 


TD 
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4 
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4 
4 
4 
4 
4 
4 
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NS SSF eS SSVS FUN SSeS ALE SSSSES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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1 
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